(emerge-temp-file-prefix): Use system-tmp-directory.

diff --git a/lisp/emerge.el b/lisp/emerge.el
index 8794ab45e55f8a7eb925e03e92f86857715a5359..d42f8ff2f3e4c253e34ac85f4b0a439900d0ce52 100644 (file)
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -290,16 +290,7 @@ displaying a difference."
   :group 'emerge)
 
 (defcustom emerge-temp-file-prefix
-  (let ((env (or (getenv "TMPDIR")
-                (getenv "TMP")
-                (getenv "TEMP")))
-       d)
-    (setq d (if (and env (> (length env) 0))
-               env
-             "/tmp"))
-    (if (= (aref d (1- (length d))) ?/)
-       (setq d (substring d 0 -1)))
-    (concat d "/emerge"))
+  (concat system-tmp-directory "/emerge")
   "*Prefix to put on Emerge temporary file names.
 Do not start with `~/' or `~user-name/'."
   :type 'string